package Error::Hierarchy::Internal::ReadOnlyAttribute;

# $Id: ReadOnlyAttribute.pm 10101 2005-08-09 16:13:58Z gr $

use warnings;
use strict;


our $VERSION = '0.05';


use base 'Error::Hierarchy::Internal';

__PACKAGE__->mk_accessors(qw(attribute));

use constant default_message => '[%s] is a read only attribute';

use constant PROPERTIES => ( 'attribute' );

1;


__END__

{% USE p = PodGenerated %}

=head1 NAME

Error::Hierarchy::Internal::ReadOnlyAttribute - when someone tried to set a value

=head1 SYNOPSIS

  Error::Hierarchy::Internal::ReadOnlyAttribute->throw(attribute => 'foo');

=head1 DESCRIPTION

This class implements an exception that is meant to be thrown when someone
tried to change a value you consider to be read-only.

=head1 PROPERTIES

This exception class inherits all properties of L<Error::Hierarchy::Internal>.

It has the following additional properties.

=over 4

=item attribute

=back

=head1 METHODS

=over 4

{% p.write_methods %}

=back

{% p.write_inheritance %}

{% PROCESS standard_pod %}

=cut

